   1 clear 
   4 BC=147;goto 11
   5 CX=-45;CY=-30;W=rnd (5);return 
   6 CX=-65;CY=-5;return 
   7 W=rnd (3);return 
   8 W=rnd (2);return 
   9 G=0;Y=0;return 
  11 A=0;N=0;Y=0;Q=1;M=15;S=0;F=1;G=1;H=10;X=-30
  20 box 0,-30,120,20,1;box 0,-30,100,18,2
  21 D=-40;for E=1to 9;box D,-38,1,3,1;D=D+10;next E;gosub 40;gosub 60;goto 100
  30 G=G+1;if G=5if H-Y>0G=1;F=3-F;H=10
  31 H=H-Y;if (H<1)+(G=1)H=10;G=1
  32 S=S-(rnd (20)+10);if S<10M=M-1;S=60-rnd (10);if M<2if (Q=2)+(Q=4)BC=106
  33 if M<0Q=Q+1;M=15;S=0;if Q=3X=30;Y=0;F=2;G=1;H=10;BC=147;gosub 60
  34 if Q=5Q=4;M=0;S=0;gosub 40;STOP
  40 CY=40;CX=-77;print " AFC       TIME      NFC
  45 print #3,A,#9,M,":",#0,S,#9,N
  47 print ;print "DOWN",#2,G,"     QUARTER",#2,Q
  48 if G=1if F=1if X>39goto 51
  49 if G=1if F=2if X<-39goto 51
  50 goto 54
  51 H=50-ABS(X)
  54 print "YDS to GO",#4,H
  55 CX=0;CY=-15;if F=1print "right ";goto 57
  56 print "left 
  57 return 
  60 box 0,-30,100,10,2;if F=1X=X+Y;if X>49X=50
  61 if F=1goto 63
  62 X=X-(Y);if X<-49X=-51
  63 box X,-30,1,1,1
  70 if F=1if X>49A=A+7;X=30;gosub 9;F=2;gosub 80
  71 if F=1if X<-49N=N+2;X=0;gosub 9;F=2;gosub 85
  72 if F=2if X<-49N=N+7;X=-30;gosub 9;F=1;gosub 80
  73 if F=2if X>49A=A+2;X=0;gosub 9;F=1;gosub 85
  74 box X,-30,1,1,1;return 
  80 gosub 5;print "TOUCHDOWN";goto 89
  85 gosub 5;print "SAFETY
  89 box 0,-30,100,10,2;return 
 100 gosub 6;print "input OFF.
 105 O=0
 110 if JY(1)=1O=1
 120 if JY(1)=-1O=2
 130 if JX(1)=1O=3
 140 if JX(1)=-1O=4
 150 if TR(1)O=5
 160 if O>0goto 200
 170 goto 100
 200 gosub 6;input "input DEF."P
 210 if (O=1)+(O=2)goto 700
 215 if rnd (20)=17gosub 5;print "FUMBLE";gosub 355;goto 690
 220 gosub 5;gosub 10mul O+300;goto 690
 310 Y=rnd (5);if P=1Y=Y-rnd (3)
 311 if P=5if W=3Y=0
 312 if P=5if W#3Y=Y+3
 313 return 
 320 Y=rnd (7);if P=2Y=Y-rnd (5)
 321 if P=5if W=3Y=-2
 322 if P=5if W#3Y=Y+5
 323 return 
 330 gosub 7;if W=1goto 750
 331 if P=3gosub 8;if W=1goto 750
 332 Y=rnd (9);goto 800
 333 gosub 5;if P=5if W=3goto 900
 334 if P=5if W#3Y=Y+5
 335 return 
 340 gosub 7;if W=1goto 750
 341 if P=4gosub 8;if W=1goto 750
 342 Y=rnd (15)+5;goto 800
 343 gosub 5;if P=5if W=3goto 900
 344 if P=5if W#3Y=Y+9
 345 return 
 350 Y=rnd (20)+30;if P=5if rnd (10)=2goto 730
 351 if F=1if X+Y>49gosub 760;A=A+3;X=30;goto 355
 352 if F=2if X-(Y)<-49gosub 760;N=N+3;X=-30;goto 355
 353 if F=1X=X+Y;goto 355
 354 X=X-(Y)
 355 gosub 9;F=3-F
 356 return 
 690 gosub 60;gosub 30;goto 100
 700 if rnd (20)=15Y=rnd (30)+10;gosub 5;print "BREAKAWAY";goto 690
 710 goto 220
 730 gosub 5;print "BLOCKED";goto 355
 750 gosub 5;print "INCOMPLETE";Y=0;return 
 760 gosub 5;print "FG";return 
 800 W=rnd (10);if W=7CX=-45;CY=-30;print "INTERCEPTED
 810 if W=7G=0;F=3-F;return 
 830 if O=3goto 333
 840 goto 343
 900 gosub 5;print "Q-TRAP";Y=-rnd (15)
 910 return 
:return ;run 